      FUNCTION FSUB8(INP)
      COMPLEX(KIND=8) :: INP,FSUB8
      FSUB8 = INP
      END FUNCTION FSUB8
